[The Shadow]

Код:

var
Advices: Array of String;
begin
//Тут заполняешь массив советами
Randomize;
Panel1.Caption:=Advices[Random(Length(Advices))];
end;