[Greco]

para completar un poco...

Código Delphi [-]
procedure Log(Str: String; Archivo: String);
begin
  // Creamos el objeto
  with TStringList.Create do
  try
    try
      // Intentamos cargar el archivo
    If FileExists(Archivo) then LoadFromFile(Archivo);
    except
      // Si no podemos ignoramos el error
    end;
    // Si ya hay lineas
    if Count > 0 then
     // Comprobamos si la ultima es igual a la que queremos introducir
     //****** AQUI MANDO A LLAMAR LA FUNCION PARA EXTRAER SOLO LA CADENA Y NO LA HORA *****     
if GetText(Strings[Count-1]) = Str then
 { intenté tambien usando una variable, por ejemplo:
 cadena:=Strings[Count-1];
 if cadena = Str then
 ...}  
     //if Strings[Count-1] = Str then
      Exit; // Si lo es salimos
    // Dejamos solo las cuatro ultimas lineas
    while Count > 9 do
      Delete(0);
      // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
      // lo siguiente es por si le quiero anteponer la hora (el caracter | es para separar la hora de la cadena
      //Add(FormatDateTime('hh:nn:ss',now())+'|'+Str);
      // +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
     // si utilizo la linea anterior elimino la siguiente     
    Add(Str);
   // Por ultimo guardamos el archivo
    SaveToFile(Archivo);
  finally
    Free;
  end;
end;

Saludos