[Bargest]

Можно и не только для Label'ов, и в обычном TXT-файле:

Код:

2 label1=Привет, мир
2 label2=Еще раз привет, мир
1 Form1=Форма приложения

и читаем:

Код:

var f:text;
     s,nam:string;
     t:integer;
...
assignfile(f,'Russian.lng');
reset(f);
while not eof(f) do
 begin
  readln(f,s);
  t:=strtoint(s[1]);
  delete(s,1,2);
  nam:=copy(s,1,pos('=',s)-1);
  delete(s,1,pos('=',s));
  case t of
  1: TForm1(FindComponent(nam)).Caption:=s;
  2: TLabel(FindComponent(nam)).Caption:=s;
  end;
 end;
closefile(f);

Т.е. пишешь тип (любым номером), потом имя компонента и значение.