Trasladar Procedure

[defcon1_es]

¿Y no sería más claro y sencillo crear un procedimiento con el código que necesites?

Ejp:

Código Delphi [-]
procedure TF_Principal.MiProcedimiento;
Var Codigo: String;
begin
Codigo := EditCodigo.Text;
with DataM.MyQuery do
  begin
    SQL.Clear;
    SQL.Add('SELECT * FROM SFixed');
    SQL.Add('WHERE');
    SQL.Add('FX_CODIGO = :Codigo');
    SQL.Add('AND SFIXED.FX_TIPO =  :9');
    ParamByName('Codigo').AsString:= Codigo;
    ParamByName('9').AsString:= '9';
    RequestLive := true;
    Open;
    While EditCodigo.Text <> '' do
    begin
    IF  (FieldByName('FX_CODIGO').AsString <> Codigo)  then
       begin
       ShowMessage('El Accionista No Existe Pasar Por Administración');
       L_Aprobado.Visible := False;
       end;
    IF  (FieldByName('FX_CODIGO').AsString = Codigo)  AND (FieldByName('FX_SALDO').AsCurrency > 0) then
       begin
       ShowMessage('El Accionista Presenta Deuda Pasar Por Administración');
       L_Aprobado.Visible := False;
       end;
    IF  (FieldByName('FX_CODIGO').AsString = Codigo)  AND (FieldByName('FX_SALDO').AsCurrency = 0) then
       begin
       L_Aprobado.Visible := True;
       end;
    Break;
    end;
       IF  EditCodigo.Text = ''  then
          begin
          ShowMessage('Por Favor Ingrese ID del Accionista');
          end;
  end;
end;

y lo llamas cuando y donde lo necesites:

Código Delphi [-]
procedure TF_Principal.edt1KeyUp(Sender: TObject; var Key: Word;   Shift: TShiftState); 
begin   
  if (Key= vk_return) then     
    MiProcedimiento; 
end;

procedure TF_Principal.edt1Enter(Sender: TObject); 
begin   
  MiProcedimiento; 
end;

[L3st4t]

Gracias Sapt_86 Por tu respuesta... Muy agradecido


defcon1_es no podria esta mas deacuerdo contigo de hecho antes de postear la pregunta ya lo habia hecho pero resulta que cuando llamo el procedimiento mas de una vez me da un error que al parecer es de memoria y se posiciona en el

Código Delphi [-]
 Whit DataM.MyQuery do

por ende la aplicación no me corre y por tal motivo poestee la pregunta para ve que estaba haciendo mal.

Entonces que podrá ser?

Saludos