Untitled

// UTelaBuscaCli_For
// 840

if FrmTelaBuscaCli_For.Tag = 73 then //Tela 9 - Controle de Deslocamento
begin
with FrmControleDeslocamento_9 do
begin
  PnlDescricaoPosto.Tag := Ordem_Cliente;
  EdtPosto.Text := Codigo;
  PnlDescricaoPosto.Caption := Nome;
  EdtPosto.SetFocus;
end;
end;