Found ,my problem:
SRL-OSR\SRL\misc\trade.simba
Simba Code:
function GetTradersName: string;
var
ii, x, y, TPos: Integer;
TP: TPoint;
TS: string;
begin
for ii := 8 downto 4 do
begin
TP := TextCoords(ii);
if (FindColor(x, y, 8388736, TP.x, TP.y, MCX2, TP.y + 13)) then Break;
end;
TS := GetChatBoxText(II, 8388736);
TPos := Pos('wishes', TS) - 1;
Result := Trim(Copy(TS, 1, TPos));
end;
i copyed this into my script
Simba Code:
for ii := 8 downto 4 do
begin
TP := TextCoords(ii);
if (FindColor(x, y, 8388736, TP.x, TP.y, MCX2, TP.y + 13)) then Break;
end;
TS := GetChatBoxText(II, 8388736);
TPos := Pos('wishes', TS) - 1;
Result := Trim(Copy(TS, 1, TPos));
And change:
Simba Code:
TPos := Pos('wishes', TS) - 1;
To:
Simba Code:
TPos := Pos('wishes', TS) - 2;
Now it work 100% 
I will like to thanks Justin, Tootoot222 and R0b0t1 for sparing there time on helping me. Thanks