ето малко код ...

type
{$R openform.DFM}
TOpenForm = class (TForm)
//дори и гола форма не ще да тръгне
end;
TStringAlignGrid = class(TStringGrid)
.......
OpenForm:TOpenForm;
. .........
procedure OpenFile(FileName:String);
.........
end;
implementation
constructor TStringAlignGrid.Create (AOwner:TComponent);
begin
inherited Create(AOwner);
OpenForm.Create(AOwner);
end;
или пък я create-вам в някой метод,където вече е сигурно, че Аpplication не е NIL(поне се надявам :) ).
procedure TStringAlingGrid.OpenFile (FileName:String);
begin
OpenForm.Create(Application.MainForm);
end;

и така. тва е. Дано знаете какво да направя. Също бих искал да ми кажете някаква хубава книга, която мога да си намеря и тя да е за компоненти . може и за Делфи, дори и да е на английски. Хайде до скоро.