Смена изображений через определенное время

[Stilet]

Что не поймешь то?

image2.Picture.loadfromfile(extractfilepath(paramstr(0) )+'\coleso'+IntToStr(TTimer (Sender).tag)+'.bmp');

Если в каталоге с прогой есть каталог coleso, в котором находятся картинки от 1 до 3 с расширением ВМР

[stalker1995s]

Два булеана, timer и все.
Вот недавно делал, посомтри, может пригодится

Для чата интервал делал, в принципе по такойже схеме можно и смену замутить.

if inter=True then
begin
if Pos('/adm',TransMemo1.Text)=1 then
begin
pass:=TransMemo1.Text;
Delete(pass,1,5);
for i:=1 to 3 do
if pass=Adm[i] then
begin
Memo2.Visible:=True;
end;
end
else

[N.i.k.o.l.a.y.]

Да действительно, на delphi 7, все работает) А на Delphi xe нет... Почему я так и не понял)