[Alegun]

Код:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
with (Sender as TEdit) do
if Font.Color = clSilver then
begin
Font.Color:= clBlack;
Text:= '';
end;
end;

// Для проверки
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Font.Color:= clSilver;
Edit1.Text:='введите логин , парол';
end;