if ErrCode = 0 then ShowMessage('Выполнение завершено успешно')
               else ShowMessage('Выполнение завершено неуспешно');// "не успешно" пишется раздельно

 Shabal

if ... then
begin
  ...
end
else
begin
  ...
end;

if ... then begin
  ...
end else begin
  ...
end;

procedure P;

var
  F: Integer;

begin
DoSomething;
DoSomethingElse;
if F <> 0 then
begin
More;
MoreMore;
end;
InvokeAppocalypse;
end;

procedure P;
var
  F: Integer;
begin
  DoSomething;
  DoSomethingElse;
  if F <> 0 then
  begin
    More;
    MoreMore;
  end;
  InvokeAppocalypse;
end;

 Александр Алексеев

if IsAbove then
begin
Button1.Enabled := true;
Button2.Enabled := true;
Edit1.Enabled := true;
end
else
begin
Button1.Enabled := false;
Button2.Enabled := false;
Edit1.Enabled := false;
end;

type
TFileList=array of TSearchRec;
var
SearchRec:TSearchRec;
FileList:TFileList;
err,cnt:integer;
begin
setlength(FileList,0);
cnt:=0;
err:=FindFirst('*.*',faAnyFile,SearchRec);
while err=0 do
  begin
   inc(cnt);
   setlength(FileList,cnt);
   FileList[cnt-1]:=SearchRec;
   err:=FindNext(SearchRec);
  end;
FindClose(SearchRec);
end;

type
TFileRec=record
           FileName:string;
           DateTime:Integer;
           Size:Integer;
           Attr:Integer;
          end;
TFileList=array of TFileRec;
var
SearchRec:TSearchRec;
FileList:TFileList;
err,cnt:integer;
begin
setlength(FileList,0);
cnt:=0;
err:=FindFirst('*.*',faAnyFile,SearchRec);
while err=0 do
  begin
   inc(cnt);
   setlength(FileList,cnt);
   with FileList[cnt-1] do
    begin
     FileName:=SearchRec.Name;
     DateTime:=SearchRec.Time;
     Size:=SearchRec.Size;
     Attr:=SearchRec.Attr;
    end;
   err:=FindNext(SearchRec);
  end;
FindClose(SearchRec);
end;

if a < 0 then
  b := 0
else
  if a > 255 then
    b := 255
  else
    b := a;

b := Max(0, Min(255, a));

 Ins

const
  msgNormal = 'Выполнение завершено успешно.';
  msgError  = 'Выполнение завершено неуспешно.';
// ...
  if ErrCode = 0 then ShowMessage(msgNormal) else ShowMessage(msgError);

const
  msgNormal = 'Загрузка файла %s успешно завершена.';
  msgError  = 'Ошибка при чтении файла %s. Загрузка прекращена.';
// ...
  if MyFileLoading(FileName)
  then
    ShowMessage(Format(msgNormal,[FileName]))
  else
    ShowMessage(Format(msgError,[FileName]));

type
  ErrorCodes = (ecNoError,ecFileNotFound,ecAccessDenied);

const
  ErrorMessages : array[ErrCodes] of String = (
    'Файл %s успешно загружен.',
    'Файл %s не найден.',
    'Отказано в доступе к файлу %s.'
  );
//...
  ErrorCode:=MyFileLoading(FileName);
  ShowMessage(Format(ErrorMessages[ErrorCode],[FileName]));

function Perimeter(const ARect : TRect) : Integer;
begin
  with ARect do
    Result:=2*((Right-Left)+(Bottom-Top));
end;

  if Value < 0
  then
    SetTextColoor(DC,clRed)
  else
    SetTextColoor(DC,clBlue);

const
  clPosiyiveNum = clBlue;
  clNegativeNum = clRed;
//...
  if Value < 0
  then
    SetTextColoor(DC,clNegativeNum)
  else
    SetTextColoor(DC,clPositiveNum);

 Geo