[[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