Переменную типа string, необходимо запихнуть в свойство Edit.Left

procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  var s1, s2:string;
begin
s1:=s+ '.Top'; s2:=s+'.Left';
if move then begin
TEdit(Sender).left:=s2-20;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var BMP: TBitmap;
    k: integer;
begin
 BMP := TBitmap.Create;
 BMP.Assign(Image1.Picture.Graphic);
 with BMP.Canvas do
  begin
   Font.Color := clRed;
   Font.Style := [fsBold];
   Font.Size := 16;
   k := SetBkMode(Handle, TRANSPARENT);
   TextOut(50, 50, 'AAAAAAAAAA');
   SetBkMode(Handle, k);
  end;
 Image1.Picture.Assign(BMP);
 BMP.Free;
end;

with Image1.Canvas do
begin
  Brush.Style:= bsClear;
  TextOut(10,10,'Hello, World');
end;

procedure TForm2.FormCreate(Sender: TObject);
var
  png: TPngImage;
begin
  png:= TPngImage.Create;
  png.LoadFromFile('test.png');
  with Image1.Canvas do
  begin
    Font.Name:= 'Arial';
    Font.Size:= 20;
    Font.Color:= clRed;
    Brush.Style:= bsClear;
    TextOut(10,10,'Hello, World');
    Draw(10,50,png);
  end;
  png.Free;
end;