Como paso el valor?
 

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;

Y el error es...... :confused:

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

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

Asi es
 

Es exactamente lo que nesecitaba Muchas Gracias y un abrazo