1. Gere uma senha aleatória (deve ser mais útil) function CreatePass:String;const MAX_LEN=10;var i: whole; := ''; para eu := 0 a MAX_LEN-1 começa Resultado: = Resultado + s[Random(Length(s)-1)+1]; end;end;2. Converter números decimais em algarismos romanos function DecToRoman(iDecimal: longint): string;const aRomanos: array[1..13] de string = ('I', 'IV', 'V', 'IX', 'X', 'XL', 'L', 'XC', 'C', 'CD', 'D', 'CM', 'M'); aÁrabe: array[1..13] de inteiro = (1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 900, 1000);var i: inteiro;início do resultado := ''; para i := 13 downto 1 do while (iDecimal >= aArabics[i]) do start iDecimal := iDecimal - aArabics[i]; resultado := resultado + aRomans[i]; : TObject);begin showmessage(DecToRoman(5));end;3. A formatação da exibição de números inteiros usando a função FormatFloat pode resolver muitos dos seus problemas. Por exemplo, formate 1200000 em 1.200.000 procedimento de saída TForm1.Button1Click(Sender: TObject);var i:integer;begin i := 1200000; );fim;4. Você pode usar a função ClearCommError para determinar se a porta serial recebeu dados. O cbInQue e cbOutQue na estrutura TcomStat podem ajudar a realizar o julgamento. 5. Converter cor RGB em função de classe TColor RGBToColor(R,G,B:Byte): TColor;begin Resultado:=B Shl 16 Ou G Shl 8 Ou R;end;6. Remetente: TObject);var Cor: TColor; := Cor e $FF G := (Cor e $FF00) shr 8 := (Cor e $FF0000) shr 16; (B));end;7. A caixa de diálogo Procurar computador usa ShlObj;function BrowseForComputer(const winhandle : THANDLE; const title: string): string;var BrowseInfo: TBrowseInfo; PItemIDList; Caminho: array[0..MAX_PATH] de Char;begin SHGetSpecialFolderLocation(winHandle, CSIDL_NETWORK, IDRoot); ZeroMemory(@caminho, MAX_PATH); BrowseInfo.hwndOwner := winhandle; BrowseInfo.pidlRoot := IDRoot; BrowseInfo.lpszTitle := PChar(título);