Kürzer heißt ja nicht unbedingt übersichtlicher/lesbarer, sprich ich finde den 8-Zeiler verständlicher, aber das ist ja bekanntlich Geschmacksache. Aber getreu dem Motto Wenn-Schon-Denn-Schon würde ich dann aber auch einen Zweizeiler draus machen:
Delphi-Quellcode:
If (Key = VK_DELETE) And (PCPics.PageCount > 0) Then
TDockForm(fPicList.Items[PCPics.ActivePageIndex]).BtnDelete.Click;
So fällt auch das unschöne (ich weiß: auch weider Geschmacksache) vorzeitige exit weg.