public
    { Public-Deklarationen }
    procedure LoadStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
    procedure SaveStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
  end;

var
   Form4: TForm4;
implementation

{$R *.dfm}

uses LOGIN, HAUPTFORM, BEENDEN;

procedure SaveStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
var
 f: TextFile;
 i, k: Integer;
begin
  AssignFile(f, FileName);
  Rewrite(f);
 with StringGrid do
  begin
   Writeln(f, ColCount);
   Writeln(f, RowCount);
    for i := 0 to ColCount - 1 do
      for k := 0 to RowCount - 1 do
    Writeln(F, Trim(Cells[i, k]));
  end;
  CloseFile(F);
end;