Como paso el valor?

[jam888]

Desde ya muchas gracias por toda la ayuda brindada en estos ultimos tiempos, mi problema ahora es el sguiente, como hago para pasar el contenido de un tedit a un procedimiento,yo hago lo siguiente, tengo unprocedimiento que recibe una cadena de texto(string) y realiza determinadas tareas, pero no lo puedo hacer funcionar por que me da error

procedure TForm1.Edit8KeyPress(Sender: TObject; var Key: Char);
begin
// quiero que cuando se presione una tecla se llame al procedimiento
// y pasar como parametro lo de la cajita de texto
Unsolopunto(Edit8.Text);
y en el procedimiento modificar el valor de la cajita de texto
end;

[[eduarcol]]

Y el error es......

[Pablo Carlos]

Código Delphi [-]
procedure TForm1.Edit8KeyPress(Sender: TObject; var Key: Char);
begin
 if (Key = #13) then // (presionando enter)
  begin
   Query1.Close;
   Query1.Open;
 end;
end;
 
procedure TdmQuerys.QueryBeforeOpen(DataSet: TDataSet); // o el procedimiento que sea
begin
Query1.ParamByName('BuscarEsto').AsString = 
Edit8.Text; 
//luego que pasas el parametro
Edit8.Text := ' ' // Modificas el valor
end;

No entiendo mucho lo que necesitas, espero que esto te ayude.
Saludos

[[basti]]

Yo utilizaría una función en vez de un procedimiento:

Código Delphi [-]
  procedure TForm1.Edit8KeyPress(Sender: TObject; var Key: Char); 
  begin
    Edit8.Text := Unsolopunto(Edit8.Text);
  end;

  function Unsolopunto(s : string) : string;
  begin
    // aquí cambias lo que quieras en s
    Unsolopunto := s;
  end;

Creo que era esto lo que preguntabas, si no lo he entendido mal.

un saludo

[jam888]

Es exactamente lo que nesecitaba Muchas Gracias y un abrazo