Я начинающий, подскажите пожалуйста, как...

Panel1.Font.Style:=Panel1.Font.Style+[fsBold]

i:=10
ExcelApplication1.Cells.Item[i,2].Value:=AdoTable1.FieldByName('Наименование').AsString;

procedure TForm1.Button1Click(Sender: TObject);
begin
        flag := 1;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
       if flag = 1 then Label1.Caption := Key;
end;

procedure ReadSection (const Section: string; Strings: TStrings);

function ValueExists (const Section, Ident: String): Boolean;

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IniFiles, StdCtrls;
const
  IniFile = 'c:\myini.ini';
  IniSection = 'list';
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    ComboBox1: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
  private
    Ini: TIniFile;
  public
    procedure ReadParams(Strings: TStrings; Section: string);
    procedure WriteParams(Strings: TStrings; Section: string);
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
  Ini := TIniFile.Create(IniFile);
  ComboBox1.Clear;
  ReadParams(ComboBox1.Items, IniSection);
end;
procedure TForm1.ReadParams(Strings: TStrings; Section: string);
var
  I: Integer;
  Keys: TStrings;
begin
  Strings.Clear;
  Keys := TStringList.Create;
  Ini.ReadSection(Section, Keys);
  for I := 0 to Keys.Count - 1 do
  begin
    Strings.Add(Ini.ReadString(Section, Keys, 'No Value'));
  end;
end;
procedure TForm1.WriteParams(Strings: TStrings; Section: string);
var
  I: Integer;
begin
  if Strings.Count <> 0 then
  begin
    Ini.EraseSection(Section);
    for I := 0 to Strings.Count - 1 do
    begin
      Ini.WriteString(Section, IntToStr(I), Strings);
    end;
    ReadParams(Strings, Section);
  end;
end;
procedure TForm1.Edit1Exit(Sender: TObject);
begin
  try
    if TEdit(Sender).Text <> '' then
    begin
      ComboBox1.Items.Add(TEdit(Sender).Text);
      WriteParams(ComboBox1.Items, IniSection);
    end;
  finally
    TEdit(Sender).Text := '';
  end;
end;
end.

procedure TForm1.Button1Click(Sender: TObject);
var
  ini: TIniFile;
  strs: TStrings;
begin
  ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'test.ini');
  strs := TStringList.Create;
  try
    ini.ReadSection('section', strs);
    ini.WriteString('section', IntToStr(strs.Count + 1), 'value');
  finally
    ini.Free;
    strs.Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
  ini: TIniFile;
begin
  ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'test.ini');
  try
    i := 1;
    while true do
    begin
      if not ini.ValueExists('section', IntToStr(i)) then
      begin
        ini.WriteString('section', IntToStr(i), 'value');
        Break;
      end;
      Inc(i);
    end;
  finally
    ini.Free;
  end;
end;

[section]
1=value
2=value
3=value
4=value
6=value
7=value
8=value
9=value
10=value
11=value

StringGrid1.Cells[0,1]:='строка';

procedure TForm1.FormShow(Sender: TObject);
begin
  Top := GetSystemmetrics(SM_CYSCREEN) - Height;
  Left := GetSystemMetrics(SM_CXSCREEN) - Width;
end;

procedure TForm1.FormShow(Sender: TObject);
var
  R: TRect;
begin
  SystemParametersInfo(SPI_GETWORKAREA, 0, @R, 0);
  Top := R.Bottom - Height;
  Left := R.Right - Width;
end;

function CheckExeCopy:boolean;
begin
Result:=false;
CreateMutex(nil,true,'что-нибудь_заковыристое');
if GetLastError=ERROR_ALREADY_EXISTS then
 Result:=true;
end;

if CheckExeCopy then begin MessageBox(0,'программа уже запущена!','',0); exit; end;

if not FileExists('Plugins\log\log\date.txt') then
 begin
 Rewrite(f,'Plugins\log\log\date.txt');
  end;

procedure TForm1.Button1Click(Sender: TObject);
Var
  F : TextFile;
begin
  if not FileExists('alloc.txt') then
  begin
    AssignFile(F, 'alloc.txt');
    Rewrite(F, 'alloc.txt');
  end;

end;

var
  Form1: TForm1;
  wnd,cwnd:HWND;
implementation

{$R *.dfm}
function EnChWndCallBack(FormHandle:hWnd;l:pchar):boolean;stdcall;
var FormClass:array[0..255] of char;
begin
Result:=True;
GetClassName(FormHandle, FormClass, sizeof(FormClass));
if FormClass=string(l) then
 begin
  cwnd:=FormHandle;
  Result:=false;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
wnd:=FindWindow(nil,test');
if wnd <> 0 then begin
EnumChildWindows(wnd,@EnChWndCallBack,LParam(pchar('TMemo')));
if cwnd <> 0 then begin
SendMessage(cwnd,WM_SETTEXT,0,LParam(pchar('ksdasd')));
end;
end;
end;