Вопрос # 6 375: …сперты! Программа должна перетаскивать из одного компонента в другой.… (Работа с компонентами и библиотеками)

Приветствую, уважаемые эксперты!
Программа должна перетаскивать из одного компонента в другой. Моя программа переносит значение из TLabel в TProgressBar, из TProgressBar в TLabel. Но при переносе из TMemo в TProgressBar выдает ошибку: "is not a valid integer value". Пожалуйста помогите в чем ошибка, где ее исправить. Программа имеется в приложении.
Спасибо!

К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)

Приложение:

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
ProgressBar1: TProgressBar;
Memo1: TMemo;
procedure Label1DragDrop(Sender, Source: TObject; X, Y: Integer);
procedure Label1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Label1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if(source is TLabel)and(sender is TProgressBar) then (sender as TProgressBar).Position:=strtoint((source as TLabel).caption);
if(source is TLabel)and(sender is TMemo) then (sender as TMemo).lines.Add((source as TLabel).caption);
if(source is TProgressBar)and(sender is TLabel) then (sender as TLabel).caption:=inttostr((source as TProgressBar).position);
if(source is TProgressBar)and(sender is TMemo) then (sender as TMemo).lines.Add(inttostr((source as TProgressBar).position));
if(source is TMemo)and(sender is TProgressBar) then (sender as TProgressBar).Position:=strtoint((source as TMemo).Text);
if(source is TMemo)and(sender is TLabel) then (sender as TLabel).caption:=(source as TMemo).Text;
end;
procedure TForm1.Label1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
accept:=true;
end;
end.