uses ShellAPI;
 
{$R *.dfm}
 
procedure TForm1.Image1Click(Sender: TObject);
Const
  URL : String = 'http://www.delphi.int.ru';
begin
  ShellExecute(0,'open',pChar(URL),NIL,NIL,SW_SHOWNORMAL);
end;

“Цитата”
т. к. модем не поддерживается

ThreadHandl:=CreateThread(nil,0,@MyThread,self,0,ThreadID);

Function MyThread(p:pointer):LongInt; STDCall;
var
ExitCode: Integer;
 
i1,i2: Integer;
panel:TMyPanel;
Begin
panel := TMypanel(p);
GetExitCodeThread(ThreadHandl,ExitCode);
 
i1:=panel.Width;
i2:=panel.Height;
 
 
ExitThread(ExitCode);
End;

procedure TForm1.Button1Click(Sender: TObject);
var
  x, y, c : integer;
begin
  c := clRed;
  for x:=0 to Image1.Width-1 do
    for y:=0 to Image1.Height-1 do
      if Image1.Canvas.Pixels[x,y]=c then
        Label1.Caption := 'x=' + IntToStr(x) + '  y=' + IntToStr(y);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  x, y : integer;
begin
  for x:=0 to Image1.Width-1 do
    for y:=0 to Image1.Height-1 do
      if Image1.Canvas.Pixels[x,y]<>clBlack then
        Label1.Caption := 'x=' + IntToStr(x) + '  y=' + IntToStr(y);
end;

StringGrid1.rowcount := memo1.lines.count;
StringGrid1.FixedRow := 0;
for i := 0 to Memo1.lines1.count -1 do
  StringGrid1.Cells[0, i] := memo1.lines[i];

procedure RunStopHook(State : Boolean); stdcall;
 
begin
 
end;
 
exports RunStopHook index 1;

procedure TForm1.Button1Click(Sender: TObject);
var s: AnsiString;
begin
  case TButton(Sender).Tag of
    1: s:='первая кнопка';
    2: s:='вторая кнопка';
    3: s:='третья кнопка';
    else s:='непонятная кнопка';
  end;
...
end;

if OpenDialog1.execute then Image1.canvas.loadFromFile(opendialog1.filename);

const r:integer = 10; //размер одной бисеринки.
var i, j:integer;
begin
//выставим размеры
  image2.width := image1.width*r;
  image2.height := image1.height*r;
  image2.canvas.pen.color := clBlack; //цвет границы бусинки.
//рисуем бусинки
  for i := 0 to image1.width-1 do
    for j := 0 to image1.height-1 do
      if odd(i + j) then begin // здесь можно писать и not odd(i + j), что бы рисовать чуточку по другому
        image2.canvas.brush.color := image1.canvas.pixels[i,j];
        image2.canvas.ellipse(i*r, j*r, (i+1)*r, (j+1)*r);
      end;
end;

image2.canvas.ellipse(i*r, j*r, (i+1)*r+k, (j+1)*r+k);