unit Textform;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    {Private declarations}
  public
    {Public declarations}
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
 OutFile: TextFile;
 fname, OutString: String;
begin
 fname := 'JUNKFILE.TXT';     {nazwa pliku}
 AssignFile(OutFile, fname);  {zwizujemy plik ze zmienn}
 Rewrite(OutFile);            {tworzymy plik}
 OutString := Edit1.Text;     {pobieramy tekst z okienka Edit1}
 Writeln(OutFile, OutString); {wpisujemy go do pliku}
 CloseFile(OutFile);          {zamykamy plik}
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 InFile: TextFile;
 fname, InString: String;
begin
 fname := 'JUNKFILE.TXT';     {nazwa pliku}
 AssignFile(InFile,fname);    {zwizujemy plik ze zmienn}
 Reset(InFile);               {otwieramy plik}
 Readln(InFile, InString);    {pobieramy zapisany w nim wiersz}
 Edit2.Text := InString;      {wywietlamy w okienku Edit2}
 CloseFile(InFile);           {zamykamy plik}
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 Application.Terminate;
end;

end.