procedure Tmain_Form.fais_kvgaExecute(Sender: TObject);
var
i:byte;
begin
for i := 0 to application.ComponentCount-1 do
if application.Components[i] is Tkvga_form then
begin
kvga_form.BringToFront ;
Exit; <-- error
end;
kvga_form := tkvga_form.create(application);
kvga_form.show;
end;
-> statement expected,but expression of type 'TAction' found
어디가 잘못
> procedure Tmain_Form.fais_kvgaExecute(Sender: TObject);
> var
> i:byte;
> begin
> for i := 0 to application.ComponentCount-1 do
> if application.Components[i] is Tkvga_form then
> begin
> kvga_form.BringToFront ;
> Exit; <-- error
> end;
> kvga_form := tkvga_form.create(application);
> kvga_form.show;
> end;
>
>
> -> statement expected,but expression of type 'TAction' found
> 어디가 잘못