[NumLock]

продолжим холивар?

Код:

function Test: TStrings;
begin
  try
    Result:=TStringList.Create;
    try
      Result.Add('Test');
    except
      ShowMessage('Вам сегодня не повезло :(');
    end;
  except
    Result:=nil;
    ShowMessage('Windows must died');
  end;
end;


procedure TForm1.FormCreate(Sender: TObject);
var
  t: TStrings;
begin
  try
    t:=Test;
    if not Assigned(t) then Exit;
    try
      Memo1.Lines.Assign(t);
    finally
      t.Free;
    end;
  except
    ShowMessage('Сегодня не Ваш день :)');
  end;
end;

иногда примеры можно минимизировать