Правила кодинга облегчающие жизнь

При написании программ столкнулись с такой большой проблеммой как индивидуальность кода программиста, или что еще страшней равнодушие к коду вовсе. Все примеры буду давать на Дельфи, однако все описанное пригодно для всех языков ООП.

Вот пример неудачного кодинга:

procedure TForm1.Button1Click (Sender: TObject);

Var qqq: String; bbb: Integer;

begin

qqq:=edit1.text;

qqq:=uppercase(qqq);

bbb:=length(qqq);

edit1.text:=qqq+intTOSTR(bbb);

end;

Казалось бы простой кусок, однако понимание что происходит приходит лишь после изучения всего модуля и формы. А вот сравните с таким:

procedure TfrmMain.btnShowLenClick (Sender: TObject);

Var

  tmpStroka: String;

  strDlina: Integer;

begin

  tmpStroka:=uppercase(edtUserText.text);

  strDlina:=length(tmpStroka);

  edtUserText.text:=tmpStroka+IntToStr(strDlina);

end;

Из данного фрагмента даже не видя ничего остального можно сказать что есть главная форма, на ней есть поле куда пользователь вводит текст, есть кнопка по нажатию на которую показывается длина и т.п.

Как достичь понятность вашего кода и упростить жизнь себе и другим  и будет основной темой.