Code:
procedure TForm1.FLISTClick(Sender: TObject);
var BuildValue: smallint;
begin
try
//now open the file to check the type
MemoryStream.LoadFromFile(STV1.Path + '\' + FList.Items.Strings[FList.ItemIndex]);
MemoryStream.Position := $1A;
BuildValue := BC.Value * 10;
MemoryStream.Write(BuildValue, 2);
end;
So sieht's dann eben komplett aus!