Save button

procedure TForm1.ButtonZapiszClick(Sender: TObject);
var
  x, y : integer;
begin
  if (EditNazwaPliku.Text = '') then
  begin
    ShowMessage('Musisz podac nazwe pliku!');
    exit;
  end
  else
  begin
    assignfile (PLIK, EditNazwaPliku.Text+'.txt');
    rewrite (PLIK);

    For y:= 1 to Tabela.RowCount-1 do
    begin
      begin
        For x:= 0 to Tabela.ColCount-1 do
        write(PLIK, Tabela.Cells[x, y]+';');
      end;
      writeln(PLIK, '');
    end;
    closefile (PLIK);
  end;
end;