procedure TForm1.Button1Click(Sender: TObject);
var ER:tstrings;
    i,k: integer;
    q: boolean;
    l,m,n: string;

begin
er:=TStringList.Create;
er.LoadFromFile('1.txt');
    for i:=0 to er.Count - 1 do
    begin
       l:= er.Strings[i];
       m:=''; n:='';
       k:=1;
       q:= false;
        while k <= length(l)   do
        begin
          if (l[k] = ';')
          then begin
            while  k<= length(l) do
            begin
             inc(k);
             n:= n + l[k];
            end;
            q:= true;
          end
          else begin
           if q =  true then exit;
           m:= m + l[k];
          inc(k);
          end
        end;
         memo1.Lines.Add(m+'   '+n);
      end;
er.Free;
end;