Ни для кого не является секретом тот факт, что качество оформления исходных тектов имеет важное значение, хотя, на первый взгляд, не оказывает прямого влияния на качество окончательного программного продукта. На самом деле четкое следование определенному стилю оформления позволяет значительно снизить усилия, затрачиваемые на создание, отладку и, в особенности, сопровождение программы. Никаких официальных руководств по оформлению исходных текстов на Delphi я не встречал, поэтому в своем изложении буду опираться на стандарты де-факто, установленные компанией Borland/Inprise, которые можно изучить, просматривая исходные тексты модулей и примеров, поставляемых с Delphi.
Самым главным требованием необходимо считать четкое отражение вложенности операторов в сдвигах начала строки от левой границы. Стандартным считается отступ на 2 символа для каждого следующего вложения:

первый уровень
второй уровень
третий уровень

Это требование должно выполняться одинаково как для составных (с begin и end), так и для простых операторов:
while Condition do
begin
Operator1;
Operator2;
end;

for i:=StartValue to EndValue do
Action;

В тех случаях, когда длина простого оператора невелика, он может записываться на одной строке с оператором более высокого уровня:

for i:=StartValue to EndValue do Action;

Операторные "скобки" begin и end записываются на уровне порождающего их оператора и не влияют на отступы вложенных операторов. Необходимо четко следить, чтобы парные begin-end находились на одном уровне. Самое простой способ избежать ошибок, связанных с их установкой: устанавливать их одновременно.

При переносе частей длинного простого оператора производится сдвиг переносимых частей на следующий уровень:

begin
SomeVeryVeryVeryVeryLongNameProcedureCall(
FirstVeryVeryVeryVeryLongParameter,
SecondVeryVeryVeryVeryLongParameter,
ThirdVeryVeryVeryVeryLongParameter);
end;

begin
SomeString:=String1+String2+String3+String4+String5+
String6+String7+String8+String8+String9+String10;
end;

Блоки обработки исключений записываются по тем же правилам, что и обычные блоки begin-end:

with TSomeObject.Create do