var
  Form1: TForm1;
  num:integer;
  newstring:string;
  list:TStringList;

//при создании формы
procedure TForm1.........
begin
 list.create;
 list.LoadFromFile('c:\test.txt');
end;

//событие таймера
procedure TForm1.......
var
list2:TStringList;
i:integer;
begin
list2.create;
list2.loadFromfile('c:\test.txt');
for i:=0 to list1.count-1 do
begin
if not (list1.string[i]=list2.string[i]) then
newstring:=newstring+list2.string[i];
end;
end;