...
while True do
begin
  ... // Programmzeilen hier
end;