ERRO: Missing operator or semicolon

galera eu sei que esse erro é porcausa da falta do ";" mais no caso tem o ponto e virgula pq está dando esse erro??


codigo:

procedure TFPrincipal.fornecedor1Click(Sender: TObject);
begin
Application.CreateForm(TfCadfornecedor , fCadfornecedor);
fCadfornecedor.ShowModal; <<<<<<<<<<<<<<<<<<<<<<<<<Nessas duas
fCadfornecedor.Release; <<<<<<<<<<<<<<<<<<<<<<<<< Linhas
end;

end.