Pues no entiendo que quieres...
Por que en tu ejemplo solo preguntas si
Saludo no es cadena vacia, entonces muestralo en un
ShowMessage, y luego?
Ahora, vamos a suponer, de casualidad no querras algo como esto?:
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 <> '' then
ShowMessage(Saludo)
else
ShowMessage(Hola)
end;
Saludos...