function 										 MidStr(const S, SLeft, SRight: string): string; var   PosLeft, PosRight, PosMid: Integer;   STmp: string; begin   Result := '';   PosLeft := Pos(SLeft, S);   if PosLeft = 0then Exit;   PosMid := PosLeft + Length(SLeft);   STmp := Copy(S, PosMid, Length(S));   PosRight := Pos(SRight, STmp);   if PosRight = 0then Exit;   Result := Copy(STmp, 1, PosRight - 1); end; 								
function RightStr    (Const Str: String; Size: Word): String; begin  if Size > Length(Str) then Size := Length(Str);  RightStr := Copy(Str, Length(Str)-Size+1, Size) end;  function MidStr    (Const Str: String; From, Size: Word): String; begin  MidStr := Copy(Str, From, Size) end;  function LeftStr    (Const Str: String; Size: Word): String; begin  LeftStr := Copy(Str, 1, Size) end; end;