[Decoding]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  f: TextFile;
  i: integer;
begin
   AssignFile( f, 'C:\123.txt' );
   Rewrite( f );
   for i := 1 to 44 do
      Writeln( f, TEdit( FindComponent( Format( 'Edit%d', [i] ) ) ).Text );
   CloseFile( f );
end;