TÉMA:

palyafrissito:=TTimer.Create(nil);
  palyafrissito.interval:=10;
  palyafrissito.ontimer:=@palyafrissites;

    for psz := 0 to palyakep.width div talajkep.width do
        for pm := 0 to palyakep.height div talajkep.height do
            palyakep.canvas.draw(psz * talajkep.width, pm * talajkep.height, talajkep);

talajkep:=TBitmap.Create;
  talajkep.LoadFromFile('kepei/hatterek/talaj.bmp');
  palyakep:=TBitmap.Create;
  palyakep.SetSize(width*2,height*2);
  palyakepx:=0;
  palyakepy:=0;
  //for psz:=0 to palyakep.width-talajkep.width do
      //for pm:=0 to palyakep.height-talajkep.height do
          //palyakep.canvas.draw(psz+talajkep.width,pm+talajkep.height,talajkep);

canvas.draw(palyakepx,palyakepy,palyakep);

var panelszoveg: array [0..1] of string;
   panelszoveg[0]:='Biztosan ki akarsz lépni?';
  panelszoveg[1]:='Are you sure you want to exit?';
 valasz:=Application.MessageBox(panelszoveg[nyelv], 'Megerősítés', stilus);

if (MessageDlg('Biztosan kilépsz?',mtConfirmation,mbOkCancel,0)= mrOK) then
    close;

procedure TForm1.FormCreate(Sender: TObject);
(...)
kilepgomb:=TButton.Create(self);
With kilepgomb do
begin
 Left:=1;
 top:=Form1.height-127;
 Caption:='Esc: X';
 parent:=self;
 Onclick:=@kilepgombkatt;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState   );
begin
 if Key=VK_RIGHT then
 begin
  if palyakepx+palyakep.canvas.width+4>width then
  begin
   dec(palyakepx,4);
  end;
 end;
 if Key=VK_LEFT then
 begin
  if palyakepx<0 then
  begin
   inc(palyakepx,4);
  end;
 end;
 if Key=VK_UP then
 begin
  if palyakepy+palyakep.canvas.height+4>height then
  begin
   dec(palyakepy,4);
  end;
 end;
 if Key=VK_DOWN then
 begin
  if palyakepy<0 then
  begin
   inc(palyakepy,4);
  end;
 end;
if Key=VK_ESCAPE then close;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  KilepGomb.FreeOnRelease;
end;

procedure TForm1.kilepnemkatt(Sender: TObject);
begin
 igengomb.Free;
 felirathatter.Free;
 nemgomb.Free; //Lehet, hogy önmaga megsemmisítése gondot okoz?
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   Http: TFPHTTPClient;
begin
  Http := TFPHTTPClient.Create(nil);
 
  try
     Memo1.Text:= Http.Get('http://webcim.hu/teszt.txt');
  finally
    Http.Free;
  end;
 
end;

C.Get(ParamStr(1), 'HelyiFajlNeve');

{$MODE OBJFPC}{$H+}
uses fphttpclient,sysutils;
var
	C:TFPHttpClient;
	S:string;
begin
	C:=TFPHttpClient.Create(Nil);
	WriteLn('Webcím: ',ParamStr(1));
	C.AddHeader('User-Agent','Mozilla/5.0 (compatible; fpweb)');
	S:=C.Get(ParamStr(1));
	for I:=0 to C.ResponseHeaders.Count-1 do Writeln(C.ResponseHeaders[I]);
	if S<>'' then Writeln(S);
	C.Free;
end.