1:
2:
3:
4:
5:

procedure TDebitoren.BitBtn5Click(Sender: TObject);
begin
  TSuchbox.Create(Self);
  Suchbox.StatusBar1.Panels[1].Text := 'Hallo Text';
end;					

1:
2:
3:
4:
5:

procedure TDebitoren.BitBtn5Click(Sender: TObject);
begin
  Suchbox := TSuchbox.Create(Self);
  Suchbox.StatusBar1.Panels[1].Text := 'Hallo Text';
end;					

1:

Form2 := TForm2.Create(Self); //das funktioniert auch					

1:
2:
3:
4:
5:
6:
7:

function viewgrid():string;
begin
  for i := 0 to Form2.DBGrid1.Columns.Count - 1 do
  begin
    Form2.DBGrid1.Columns[i].Width := 100;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TfrmDBTabellen.Button1Click(Sender: TObject);
var
  i : Integer;
begin
  for i := 0 to grdTabellen.Columns.Count - 1 do
  begin
    grdTabellen.Columns[i].Width := 100;
  end;
end;