Free form creation problem

[docjones]

try
  kk:=TSearchFreeForm.Create(UniApplication);
  Kk.ShowModal(

  Procedure(Sender: TComponent; Result:Integer)
    begin
        if Result=mrOk then Begin
          //Query.Locate('numero',kk.Query.FieldByName('numero').AsString,[loCaseInsensitive]);
        End;

    End

  );
finally
    kk.Free;
end;

Hi.

I just try creating a free form to search data, but when I call showmodal, error occurs (see attach).

TSearchFreeForm is a simple empty Free form.

I think that my code is correct.

Versión 0.99.0.1150 Pro.

 

 

 

 

 

[Farshad Mohajeri]

Do not call kk.free. Form frees itself when closed.

[docjones]

Thanks !!