1. Сгенерировать случайный пароль (должно быть более полезно) функция CreatePass:String;const MAX_LEN=10;var i: целое число; s: string;begin Randomize; s:='ABCDEFGHIJKLMNOPQRSTUVWXYZ'+'abcdefghijklmnopqrstuvwxyz'+ '0123456789'; := ''; для я := От 0 до MAX_LEN-1 do Begin Result := Result + s[Random(Length(s)-1)+1]; end;end;2. Преобразование десятичных чисел в римские цифры function DecToRoman(iDecimal: longint): string;const aRomans: array[1..13] of string = ('I', 'IV', 'V', 'IX', 'X', 'XL', «L», «XC», «C», «CD», «D», «CM», «M» aАрабский язык: массив [1..13] целого числа = (1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 900, 1000);var i: целое число;начало результата := ''; for i := 13 до 1 do while (iDecimal >= arabics[i]) do Begin iDecimal := iDecimal - arabics[i]; result := result + aRomans[i]; end;end;PROcedure TForm1.Button1Click(Sender) : TObject);begin showmessage(DecToRoman(5));end;3. Форматирование целочисленного отображения с помощью функции FormatFloat может решить многие ваши проблемы. Например, отформатируйте 1 200 000 в выходную процедуру TForm1.Button1Click(Sender: TObject);var i:integer; s:string;begin i := 1200000; s := FormatFloat('#,0', i); );конец;4. Вы можете использовать функцию ClearCommError, чтобы определить, получил ли последовательный порт данные. cbInQue и cbOutQue в структуре TcomStat могут помочь в принятии решения. 5. Преобразование цвета RGB в функцию класса TColor RGBToColor(R,G,B:Byte): TColor;begin Result:=B Shl 16 Или G Shl 8 Или R;end;6. Процедура преобразования TColor в значение RGB TForm1.Button1Click ( Отправитель: TObject);var Цвет: TColor; R, G, B: Integer;begin Color := clBlack; := Цвет и $FF; G := (Цвет и $FF00) shr 8; B := (Цвет и $FF0000) shr 16; showmessage(inttostr(G)); (B));end;7. Диалоговое окно «Обзор компьютера» использует ShlObj;функцию BrowseForComputer(const winhandle : THANDLE; const title: string): string;var BrowseInfo: TBrowseInfo; IDRoot: PItemIDList; Путь: массив [0..MAX_PATH] of Char;begin SHGetSpecialFolderLocation(winHandle, CSIDL_NETWORK, IDRoot); ZeroMemory(@BrowseInfo, SizeOf(TBrowseInfo)); ZeroMemory (@path, MAX_PATH); BrowseInfo.hwndOwner:= winhandle; BrowseInfo.pidlRoot:= IDRoot; = PChar(title); BrowseInfo.pszDisplayName:= @path; BrowseInfo.ulFlags:=BIF_BROWSEFORCOMPUTER;