Du musst gar nicht unbedingt auf einen Timer zurückgreifen. Da das Aufscrollen zeitlich nur sehr kurz sein sollte, könntest du auch einfach Sleep; (oder eine entsprechende Alternative) benutzen. Beim einem Button-Click könntest du folgendes machen:
Delphi-Quellcode:
while panel1.width < 120 do
begin
Panel1.Width := Panel1.Width + 2;
Sleep(25);
end;
Das wäre jetzt mal ein Code fürs Aufscrollen. Das Einrollen solltest du dann alleine hinkriegen.
Patti