[LDV]

Помогите оптимизировать

PHP код:

function Tdatamodule_Connection.EOF: Integer;
begin
  if ConnectionStatus = csConnected then
    if SelectionStatus = ssByKey then
      with cmp_Query_ do begin
        try
          if not Active then
            Open;
          Result := Integer(EOF);
        except
          on E: Exception do
            LastMsgError := E.Message;
          Result := -1;
        end
    end
    else begin
      LastMsgError := const_msg_ErrorSelection
      Result := -1;
    end
  else begin
    LastMsgError := const_msg_ErrorConnection;
    Result := -1;
  end;
end;