variables y constantes

[[maeyanes]]

Ah ya...

Entonces sería algo como:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
const
  Hola = 'Hola, ¿qué tal?';
  Guillermo = '¿Cómo estás, Guillermo?';
  Pepe = 'Uy, ese nombre no me suena';

var
  Saludo: string;

begin
  Saludo := Edit1.Text;
  if Saludo = 'Hola' then
    ShowMessage(Hola)
  else
    if Saludo = 'Guillermo' then
      ShowMessage(Guillermo)
    else
      if Saludo = 'Pepe' then
        ShowMessage(Pepe)
      else
        ShowMessage(Saludo)
end;

Saludos...