[babay89]

Сообщение от NumLock

Код:

procedure ParseText(const AString: String; var UserName, UserPass, Server: String);
var
  AStrings: TStrings;
begin
  AStrings:=TStringList.Create;
  try
    AStrings.Text:=StringReplace(AString, ' ', #13#10, [rfReplaceAll, rfIgnoreCase]);
    UserName:=AStrings[0];
    UserPass:=AStrings[1];
    Server:=AStrings[2];
  finally
    AStrings.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  AStrings: TStrings;
  i: Integer;
  UserName, UserPass, Server: String;
begin
  AStrings:=TStringList.Create;
  try
    AStrings.LoadFromFile('txtfile.txt');
    for i:=0 to AStrings.Count-1 do
    begin
      ParseText(AStrings[i], UserName, UserPass, Server);
      Edit1.Text:=UserName;
      Edit2.Text:=UserPass;
      Edit3.Text:=Server;
      Application.ProcessMessages;
      Sleep(500);
    end;
  finally
    AStrings.Free;
  end;
end;

http://data.cod.ru/124770

То что надо Спасибо человеку за помощь.