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