1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

const 
  FileName = 'test.txt'; 
  Seperator = '='; 
  
procedure Button1Click( sender: TObejct); 
var 
  f : TextFile; { ? } 
  a : string; 
  i      : integer; 
begin 
  AssignFile( f, FileName); 
  Reset( f); 
  while not( EoF( f)) do 
  begin 
      ReadLn( f, a); 
      i := Pos( Seperator, a); 
      Listbox1.Items.Add( Copy( a, 1, i-1)); 
      Listbox2.Items.Add( Copy( a, i+1, Length( a)); 
  end; 
    CloseFile( f); 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

const filename = 'test.txt' ;
      sep = '=';

var sl : TStringlist;
     i : Integer;
     s : String;
begin

 sl := TStringlist.Create;
 sl.LoadFromFile(filename);

for i := 0 to sl.count - 1 do
 begin
    s := sl.Strings[i];
    listbox1.Items.Add(copy(s,1,pos(sep,s)-1));
    delete(s,1,pos(sep,s));
    listbox2.Items.Add(copy(s,1,pos(sep,s)-1));
    delete(s,1,pos(sep,s));
    listbox3.Items.Add(copy(s,1,pos(sep,s)-1));
    delete(s,1,pos(sep,s));
    listbox4.Items.Add(s);
 end;

end;