набирал на коленках, так что могут быть недочеты
Код:
var
TextFile:Tstringlist;
TS:Tstringlist;
i:integer;
log,pas,serv:string;
begin
TextFile:=Tstringlist.create;
TextFile.loadfromfile('c:\temp\1.txt'); //файл с данными, в формате: log pas serv
TS:=Tstringlist.create;
TS.Delimiter := ' ';
TS.DelimitedText := TextFile.text;
log:=TS.Strings[0];
pas:=TS.Strings[1];
serv:=TS.Strings[2];
FreeAndNil(TS);
FreeAndNil(TextFile);
end;