Stringgrid zur Laufzeit erzeugen

[idefix2]

In dieser Unit erzeuge ich das Stringgrid grid1 dynamisch, das Panel1 erzeuge ich im Formulardesigner.
Irgend etwas stimmt nicht, weil beim show des Formulars wird nur das Panel, aber kein Stringgrid angezeigt.
Das Panel ist ein schmaler Streifen oben (da kommt eine Toolbar hinein) und lässt noch genug Platz für das Grid

Delphi-Quellcode:

unit fdForm1Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Grids, Global, fdGrid;

type
  TfdForm1 = class(TForm)
    Panel1: TPanel;
  protected
    Grid1: TStringgrid;
  end;

procedure showform (name: string; param: string='');

implementation

{$R *.dfm}

procedure showform (name: string; param: string='');

var
f: TfdForm1;

begin
Application.CreateForm(TfdForm1, f);
f.Grid1 := TStringGrid.Create(f);
f.Grid1.align := alClient;
f.Grid1.visible := true;
f.Grid1.Colwidths[0] := 10;
f.Grid1.Options := f.Grid1.Options + [goRowSizing];

f.show;
end;