var
 hOldWnd :HWND;

...

procedure TfrmOperationDetail.SaveOperationInfo;
var
  s: string;
...

unit Unit1;

interface
...

function indexOfValue(list : TStrings; value : string): integer;
 begin
  Result := 0;
...

function getFirstElementTextByName(ElementName: string; const XMLDoc: IXMLDocument): string;
var
  NodeList: IDOMNodeList;
...

Function TfrmProc.ChangeValue( pData : WideString; KeyVar: String; pIncr : Integer ) : WideString;
	VAR     X : Byte;
		 _lPosIni, _lPosEqual,	_lPosSep : smallint;
...

function TMylist.GetNameIndex(aName: Sting): integer;
var
...

procedure CopyIntoArray(var DestArray: Array of Byte; SourceArray: Array of Byte; StartIndex: integer);
var
  i: integer;
...