Нужно сделать парсер, попустим у меня в файле com.txt есть записи:

И мне нужно сделать чтоб он их отпарсил и после:


Помогите пожалуйста =)

procedure Msg;
var f : TextFile; Tmp : string;
begin
AssignFile(f,'data.txt');
Reset(f);
while not eof(f) do
begin
ReadLn(f,Tmp);
if Copy(Tmp,1,Pos('=',Tmp))=Msg then ICQClient.SendMessage(Copy(Tmp,Pos('=',Tmp),Length (Tmp));
end;
CloseFile(f);
end;