Hola Abuelo7, puedes utilizar la función Random.
Código Delphi
[-]
var
respuesta : Integer;
RespuestaCad : String;
begin
...................
Randomize;
respuesta := RandomRange(1,5);
Case respuesta of
1: RespuestaCad := Query1.FieldByName('respuesta1').AsString;
2: RespuestaCad := Query1.FieldByName('respuesta2').AsString;
3: RespuestaCad := Query1.FieldByName('respuesta3').AsString;
4: RespuestaCad := Query1.FieldByName('respuesta4').AsString;
5: RespuestaCad := Query1.FieldByName('respuesta5').AsString;
end;
Saluditos