ActiveDelphi

[thug]

procedure TFormCadPedidos.SpdBtnProcurarClick(Sender: TObject);
begin
FormLocalizaPedidos := TFormLocalizaPedidos.Create(Application);
if FormLocalizaPedidos.ShowModal <> mrOk then
TablePedidos.GotoCurrent(FormLocalizaPedidos.TablePedidos);
FormLocalizaPedidos.Free;
end;
end.

Estou tentando fazer isso funcionar mais não consigo, não sei aonde pode estar o erro tenho um for CadPedidos e nele tem um botal Localizar o q eu quero é q quando eu localizar o pedido no FormLocalizarPedidos o Registo do ForCadPedidos vá automaticamente, O formLocalizaPedidos abre direitinho esta localizando os pedidos mais qunado eu seleciono a opção e dou on ele não altera o registro do form pedidos c alguem puder me ajudar agradeço muito =D

[thug]

Galera ja resolvi o Código ficou assim

procedure TFormCadPedidos.SpdBtnProcurarClick(Sender: TObject);
begin
Application.CreateForm(TFormLocalizaPedidos, FormLocalizaPedidos);
if FormLocalizaPedidos.ShowModal = mrOk then
begin
TablePedidos.GotoCurrent(FormLocalizaPedidos.TablePedidos);
FormLocalizaPedidos.Free;
end;
end;

estava faltando o \"begin\" .